home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 3 / AGA Experience Volume 3 (1997)(NFA - SAdENESS)[!].iso / software / utilities / programmers / apathysource / fastest / make4bittexture.amos / make4bittexture.amosSourceCode
Encoding:
AMOS Source Code  |  1996-09-20  |  350 b   |  17 lines
  1. Load Iff "!intro:fastest/textures/GBG.iff",0
  2.  
  3. Reserve As Work 16,256/2*128
  4. COUNT=0
  5.  
  6. For Y=0 To 127 Step 1
  7.    For X=0 To 255 Step 2
  8.       A=Point(X,Y) and %1111
  9.       B=Point(X+1,Y) and %1111
  10.       BYTE=A*16+B
  11.  
  12.       Poke Start(16)+COUNT,BYTE
  13.       Add COUNT,1
  14.    Next 
  15. Next 
  16.  
  17. Bsave "!intro:fastest/textures/GBG.4bit",Start(16) To Start(16)+Length(16)